home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / PROCESS.P < prev    next >
Text File  |  1990-09-13  |  2KB  |  47 lines
  1. temp <- <primitive 110 8 >
  2. <primitive 112 temp 1        " yield " \
  3.     #( #[ 93 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " unblock " \
  7.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  8.  32 83 250 2 145 242 32 10 45 243 245] \
  9.     #( #TERMINATED 'unblock'  ) ) >
  10.  
  11. <primitive 112 temp 3        " termErr: " \
  12.     #( #[ 48 33 11 17 49 11 17 168 242 245] \
  13.     #( 'Cannot ' ' a terminated process.'  ) ) >
  14.  
  15. <primitive 112 temp 4        " terminate " \
  16.     #( #[ 32 250 1 142 242 32 10 45 243 245] \
  17.     #(  ) ) >
  18.  
  19. <primitive 112 temp 5        " state " \
  20.     #( #[ 32 250 1 146 113 33 80 201 247 4 48 113 33 243 242 \
  21.  33 81 201 247 4 49 113 33 243 242 33 82 201 247 4 \
  22.  50 113 33 243 242 33 83 201 247 4 50 113 33 243 242 \
  23.  33 84 203 247 4 51 113 33 243 242 245] \
  24.     #( #READY #SUSPENDED #BLOCKED #TERMINATED  ) ) >
  25.  
  26. <primitive 112 temp 6        " suspend " \
  27.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  28.  32 81 250 2 145 242 32 10 45 243 245] \
  29.     #( #TERMINATED 'suspend'  ) ) >
  30.  
  31. <primitive 112 temp 7        " resume " \
  32.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  33.  32 80 250 2 145 242 32 10 45 243 245] \
  34.     #( #TERMINATED 'resume'  ) ) >
  35.  
  36. <primitive 112 temp 8        " block " \
  37.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  38.  32 82 250 2 145 242 32 10 45 243 245] \
  39.     #( #TERMINATED 'block'  ) ) >
  40.  
  41. <primitive 98 #Process \
  42.     <primitive 97 #Process #Object #\smalltlk\prelude\process.st \
  43.     #(  ) \
  44.     #( #yield #unblock #termErr: #terminate #state #suspend #resume #block  ) \
  45.     temp 2 4 > >
  46.  
  47.